VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "XbrlFiling"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public CIK As Double
Public ticker As String
Public coName As String
Public SIC As Integer
Public stateLoc As String
Public pubDate As Double
Dim formNo As Integer
Public endDate As Long
Public fiscalYr As String
Public accessionNo As String
Sub loadFromDB(r As ADODB.Recordset)

accessionNo = r("accessionNo").value
CIK = r("CIK").value
ticker = r("Ticker").value
formNo = r("FormNo").value
endDate = r("EndDate").value

End Sub
Sub conv2FormNo(ty As String)

If StrComp(Left(ty, 4), "10-Q") = 0 Then
    formNo = 1
ElseIf StrComp(Left(ty, 4), "10-K") = 0 Then
    formNo = 4
End If

End Sub
Function getFormNo() As Integer

getFormNo = formNo

End Function
Property Get edgarURLBody() As String

edgarURLBody = "http://www.sec.gov/Archives/edgar/data/" & CIK & "/" & accessionNo & "/" & Left(accessionNo, 10) & "-" _
        & Mid(accessionNo, 11, 2) & "-" & Right(accessionNo, 6)
                        
End Property

